home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / tutor / advtutr.exe / APPLE.SCR < prev    next >
Text File  |  1987-08-28  |  827b  |  21 lines
  1. An example for an Apple Screen:
  2.  
  3.  
  4. 1000 VTAB 1:HTAB 1:PRINT ROOM$;SPC(80-POS(0));
  5. 1010 PRINT"VISABLE OBJECTS: ";:Z=0
  6. 1020 FOR X=1 TO OBJECTS:IF L(X)<>L THEN 1060
  7. 1030 IF Z<>0 THEN PRINT", ";
  8. 1040 IF POS(0)+LEN(OBJECT$(X))+3>79 THEN PRINT SPC(80-POS(0));
  9. 1050 PRINT OBJECT$(X);SPC(80-POS(0));
  10. 1060 NEXT:IF Z=0 THEN PRINT"NOTHING";SPC(80-POS(0));
  11. 1070 PRINT"OBVIOUS EXITS: ";:FOR X=1 TO 6:IF D(L,X)=0 THEN 1090
  12. 1080 IF D(L,1)<>0 THEN PRINT"NORTH ";
  13. 1081 IF D(L,2)<>0 THEN PRINT"EAST ";
  14. 1082 IF D(L,3)<>0 THEN PRINT"SOUTH ";
  15. 1083 IF D(L,4)<>0 THEN PRINT"WEST ";
  16. 1084 IF D(L,5)<>0 THEN PRINT"UP ";
  17. 1085 IF D(L,6)<>0 THEN PRINT"DOWN ";
  18. 1090 NEXT:PRINT SPC(80-POS(0));:PRINT"-----------------------------------------
  19. -------------------------------------"
  20. 1100 VTAB 24:HTAB 1:INPUT"WHAT WOULD YOU LIKE TO DO";AN$
  21.